home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / frmexprt.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  12.5 KB  |  312 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Frmexprt.pas' rev: 3.00
  6.  
  7. #ifndef FrmexprtHPP
  8. #define FrmexprtHPP
  9. #include <Exptintf.hpp>
  10. #include <ToolIntf.hpp>
  11. #include <DBCombo.hpp>
  12. #include <FileCtrl.hpp>
  13. #include <DBTables.hpp>
  14. #include <Db.hpp>
  15. #include <Dialogs.hpp>
  16. #include <Buttons.hpp>
  17. #include <ExtCtrls.hpp>
  18. #include <Controls.hpp>
  19. #include <Forms.hpp>
  20. #include <Graphics.hpp>
  21. #include <Classes.hpp>
  22. #include <StdCtrls.hpp>
  23. #include <Windows.hpp>
  24. #include <SysUtils.hpp>
  25. #include <SysInit.hpp>
  26. #include <System.hpp>
  27.  
  28. //-- user supplied -----------------------------------------------------------
  29.  
  30. namespace Frmexprt
  31. {
  32. //-- type declarations -------------------------------------------------------
  33. class DELPHICLASS FormExcept;
  34. class PASCALIMPLEMENTATION FormExcept : public Sysutils::Exception 
  35. {
  36.     typedef Sysutils::Exception inherited;
  37.     
  38. public:
  39.     /* Exception.Create */ __fastcall FormExcept(const System::AnsiString Msg) : Sysutils::Exception(Msg
  40.         ) { }
  41.     /* Exception.CreateFmt */ __fastcall FormExcept(const System::AnsiString Msg, const System::TVarRec 
  42.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  43.     /* Exception.CreateRes */ __fastcall FormExcept(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  44.         , Dummy) { }
  45.     /* Exception.CreateResFmt */ __fastcall FormExcept(int Ident, const System::TVarRec * Args, const int 
  46.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  47.     /* Exception.CreateHelp */ __fastcall FormExcept(const System::AnsiString Msg, int AHelpContext) : 
  48.         Sysutils::Exception(Msg, AHelpContext) { }
  49.     /* Exception.CreateFmtHelp */ __fastcall FormExcept(const System::AnsiString Msg, const System::TVarRec 
  50.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  51.         ) { }
  52.     /* Exception.CreateResHelp */ __fastcall FormExcept(int Ident, int AHelpContext) : Sysutils::Exception(
  53.         Ident, AHelpContext) { }
  54.     /* Exception.CreateResFmtHelp */ __fastcall FormExcept(int Ident, const System::TVarRec * Args, const 
  55.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  56.     
  57. public:
  58.     /* TObject.Destroy */ __fastcall virtual ~FormExcept(void) { }
  59.     
  60. };
  61.  
  62. enum TLayouts { ctHorz, ctVert, ctGrid };
  63.  
  64. enum TSources { stLocal, stAlias };
  65.  
  66. enum TLabelPos { lLeft, lTop };
  67.  
  68. struct TExpertChoice;
  69. typedef TExpertChoice *PExpertChoice;
  70.  
  71. struct TExpertChoice
  72. {
  73.     TLayouts Layout;
  74.     TSources Source;
  75.     TLabelPos Labels;
  76.     Classes::TStringList* QueryText;
  77.     System::AnsiString TableName;
  78.     Classes::TStringList* FieldList;
  79.     int DriveIndex;
  80.     System::AnsiString Path;
  81.     System::AnsiString AliasName;
  82.     int TypeIndex;
  83. } ;
  84.  
  85. struct TFieldInfo;
  86. typedef TFieldInfo *PFieldInfo;
  87.  
  88. struct TFieldInfo
  89. {
  90.     TFieldType DataType;
  91.     Word Size;
  92.     System::TMetaClass*FieldClass;
  93.     System::TMetaClass*ControlClass;
  94. } ;
  95.  
  96. class DELPHICLASS TFormExpert;
  97. class PASCALIMPLEMENTATION TFormExpert : public Forms::TForm 
  98. {
  99.     typedef Forms::TForm inherited;
  100.     
  101. __published:
  102.     Extctrls::TNotebook* Notebook1;
  103.     Stdctrls::TGroupBox* GroupBox2;
  104.     Stdctrls::TRadioButton* CreateSingle;
  105.     Stdctrls::TRadioButton* CreateMulti;
  106.     Stdctrls::TLabel* Label1;
  107.     Stdctrls::TLabel* LayoutLine1;
  108.     Stdctrls::TRadioButton* HorzButton;
  109.     Stdctrls::TRadioButton* VertButton;
  110.     Stdctrls::TRadioButton* GridButton;
  111.     Stdctrls::TLabel* Label8;
  112.     Stdctrls::TLabel* Label9;
  113.     Stdctrls::TLabel* Label10;
  114.     Stdctrls::TLabel* Label11;
  115.     Stdctrls::TLabel* Label12;
  116.     Stdctrls::TLabel* Label13;
  117.     Stdctrls::TLabel* Label6;
  118.     Filectrl::TFilterComboBox* FilterList;
  119.     Stdctrls::TLabel* Label25;
  120.     Stdctrls::TLabel* Label26;
  121.     Stdctrls::TLabel* Label27;
  122.     Stdctrls::TLabel* DirPath;
  123.     Stdctrls::TEdit* FileEdit;
  124.     Stdctrls::TLabel* PathText;
  125.     Dbcombo::TAliasDrive* AliasDriveList;
  126.     Dbcombo::TAliasListBox* AliasPathList;
  127.     Dbcombo::TAliasFileListBox* AliasFileList;
  128.     Stdctrls::TLabel* Label22;
  129.     Stdctrls::TLabel* Label24;
  130.     Stdctrls::TLabel* TableLine;
  131.     Stdctrls::TLabel* Label5;
  132.     Stdctrls::TRadioButton* LeftButton;
  133.     Stdctrls::TRadioButton* TopButton;
  134.     Stdctrls::TLabel* Label28;
  135.     Stdctrls::TLabel* Label29;
  136.     Stdctrls::TListBox* DetailList;
  137.     Stdctrls::TListBox* MasterList;
  138.     Stdctrls::TLabel* Label30;
  139.     Stdctrls::TLabel* Label31;
  140.     Stdctrls::TButton* AddButton;
  141.     Stdctrls::TLabel* Label32;
  142.     Stdctrls::TLabel* Label33;
  143.     Stdctrls::TButton* DeleteButton;
  144.     Stdctrls::TButton* ClearButton;
  145.     Stdctrls::TListBox* BindList;
  146.     Stdctrls::TLabel* Label4;
  147.     Extctrls::TImage* Image1;
  148.     Stdctrls::TListBox* ChosenList;
  149.     Buttons::TBitBtn* UpButton;
  150.     Buttons::TBitBtn* DownButton;
  151.     Stdctrls::TListBox* AvailableList;
  152.     Stdctrls::TGroupBox* GroupBox1;
  153.     Stdctrls::TRadioButton* CreateTable;
  154.     Stdctrls::TRadioButton* CreateQuery;
  155.     Stdctrls::TLabel* IndexLabel;
  156.     Extctrls::TBevel* Bevel1;
  157.     Stdctrls::TComboBox* IndexList;
  158.     Stdctrls::TLabel* Label17;
  159.     Stdctrls::TLabel* Label18;
  160.     Dbtables::TTable* Table1;
  161.     Buttons::TBitBtn* BitBtn3;
  162.     Buttons::TBitBtn* BitBtn4;
  163.     Buttons::TBitBtn* BitBtn5;
  164.     Buttons::TBitBtn* BitBtn6;
  165.     Stdctrls::TCheckBox* GenMainForm;
  166.     Dbtables::TTable* Table2;
  167.     Stdctrls::TButton* CancelButton;
  168.     Stdctrls::TButton* HelpButton;
  169.     Stdctrls::TButton* PrevButton;
  170.     Stdctrls::TButton* NextButton;
  171.     Stdctrls::TButton* CreateButton;
  172.     Stdctrls::TGroupBox* FormChoices;
  173.     Stdctrls::TRadioButton* FormAndModule;
  174.     Stdctrls::TRadioButton* Form;
  175.     void __fastcall FormCreate(System::TObject* Sender);
  176.     void __fastcall NextButtonClick(System::TObject* Sender);
  177.     void __fastcall PrevButtonClick(System::TObject* Sender);
  178.     void __fastcall CreateOptionClick(System::TObject* Sender);
  179.     void __fastcall DataSourceListClick(System::TObject* Sender);
  180.     void __fastcall FormDestroy(System::TObject* Sender);
  181.     void __fastcall LayoutButtonClick(System::TObject* Sender);
  182.     void __fastcall AliasDriveListChange(System::TObject* Sender);
  183.     void __fastcall AliasPathListChange(System::TObject* Sender);
  184.     void __fastcall FilterListChange(System::TObject* Sender);
  185.     void __fastcall AliasFileListClick(System::TObject* Sender);
  186.     void __fastcall Button2Click(System::TObject* Sender);
  187.     void __fastcall Button1Click(System::TObject* Sender);
  188.     void __fastcall Button3Click(System::TObject* Sender);
  189.     void __fastcall Button4Click(System::TObject* Sender);
  190.     void __fastcall FileEditChange(System::TObject* Sender);
  191.     void __fastcall ListDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
  192.         State, bool &Accept);
  193.     void __fastcall ListDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
  194.     void __fastcall UpButtonClick(System::TObject* Sender);
  195.     void __fastcall DownButtonClick(System::TObject* Sender);
  196.     void __fastcall PosButtonClick(System::TObject* Sender);
  197.     void __fastcall BindingListClick(System::TObject* Sender);
  198.     void __fastcall AddButtonClick(System::TObject* Sender);
  199.     void __fastcall ClearButtonClick(System::TObject* Sender);
  200.     void __fastcall ListDblClick(System::TObject* Sender);
  201.     void __fastcall DeleteButtonClick(System::TObject* Sender);
  202.     void __fastcall BindListClick(System::TObject* Sender);
  203.     void __fastcall AliasFileListDblClick(System::TObject* Sender);
  204.     void __fastcall FormPaint(System::TObject* Sender);
  205.     void __fastcall FileEditKeyPress(System::TObject* Sender, char &Key);
  206.     void __fastcall CreateTableClick(System::TObject* Sender);
  207.     void __fastcall CreateQueryClick(System::TObject* Sender);
  208.     void __fastcall IndexListChange(System::TObject* Sender);
  209.     void __fastcall FormClick(System::TObject* Sender);
  210.     void __fastcall FormAndModuleClick(System::TObject* Sender);
  211.     void __fastcall HelpButtonClick(System::TObject* Sender);
  212.     void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
  213.     
  214. private:
  215.     Classes::TStringList* FAliasList;
  216.     int FCurPage;
  217.     bool FSimpleQuery;
  218.     bool FProcessedMaster;
  219.     TExpertChoice FChoice1;
  220.     TExpertChoice FChoice2;
  221.     TExpertChoice *FCurChoice;
  222.     int FInitialDriveIndex;
  223.     System::AnsiString FInitialDir;
  224.     int FChosenItem;
  225.     Controls::TImageList* FImageList;
  226.     bool FDataModule;
  227.     bool FClearDetails;
  228.     Classes::TStringList* FOrderedDetailList;
  229.     Classes::TStringList* FOrderedMasterList;
  230.     Classes::TStringList* FMasterDescList;
  231.     Classes::TStringList* FDetailDescList;
  232.     bool FCreateTable;
  233.     bool SyncChoices;
  234.     bool ForceUpdate;
  235.     System::AnsiString FFullIndexName;
  236.     void __fastcall AddToBindList(const System::AnsiString Str1, const System::AnsiString Str2);
  237.     void __fastcall ChangePages(int Value);
  238.     void __fastcall CheckBind(void);
  239.     System::TMetaClass* __fastcall CreateField(Classes::TComponent* AOwner, Db::TDataSet* DataSet, System::TMetaClass* 
  240.         FieldClass, const System::AnsiString DatabaseName, const System::AnsiString TableName, const System::AnsiString 
  241.         FieldName);
  242.     bool __fastcall DoDragOver(Stdctrls::TListBox* List, const tagPOINT &Point, int &Index, Controls::TDragState 
  243.         State, bool DropOnSelected);
  244.     void __fastcall FillFieldList(Classes::TStrings* List, PExpertChoice Choice, bool StoreDesc);
  245.     System::AnsiString __fastcall AliasPath(const System::AnsiString AliasName);
  246.     void __fastcall FreeChoice(TExpertChoice &Choice);
  247.     void __fastcall GenSelect(const System::AnsiString TableName, Classes::TStrings* Fields, Classes::TStrings* 
  248.         SQLText, const System::AnsiString AliasName, const System::AnsiString Delimiter, bool QuoteTableName
  249.         , const System::AnsiString Owner);
  250.     void __fastcall GenBindVar(const System::AnsiString TableName, Classes::TStrings* List, Classes::TStrings* 
  251.         Query, const System::AnsiString Delimiter);
  252.     int __fastcall GetFirstSelection(Stdctrls::TCustomListBox* List);
  253.     void __fastcall SetFileEditText(const System::AnsiString Value);
  254.     void __fastcall Init(void);
  255.     void __fastcall InitChoice(TExpertChoice &Choice);
  256.     void __fastcall InitFilter(void);
  257.     void __fastcall InitQuery(Classes::TComponent* AOwner, Dbtables::TQuery* Query, const TExpertChoice 
  258.         &Choice, bool Bind);
  259.     void __fastcall InitTable(Classes::TComponent* AOwner, Dbtables::TTable* Table, const TExpertChoice 
  260.         &Choice, bool Bind);
  261.     void __fastcall MoveDragList(Stdctrls::TListBox* List1, Stdctrls::TListBox* List2, const tagPOINT &
  262.         Point, int Index);
  263.     void __fastcall MoveItems(Stdctrls::TListBox* List, const tagPOINT &Point, int Index);
  264.     void __fastcall OrderFieldList(Classes::TStrings* OrderedList, Classes::TStrings* List);
  265.     void __fastcall ProcessPage0(void);
  266.     void __fastcall ProcessPage1(void);
  267.     void __fastcall ProcessPage2(void);
  268.     void __fastcall ProcessPage3(void);
  269.     void __fastcall ProcessPage4(void);
  270.     void __fastcall ProcessPage5(void);
  271.     void __fastcall RemoveMatch(Classes::TStrings* List1, Classes::TStrings* List2);
  272.     void __fastcall MoveSelected(Stdctrls::TCustomListBox* List, Classes::TStrings* Items);
  273.     void __fastcall InsertSelected(Stdctrls::TCustomListBox* List, Classes::TStrings* Items, int Index)
  274.         ;
  275.     void __fastcall SetButtons(void);
  276.     void __fastcall SetFilter(const System::AnsiString AFilter);
  277.     void __fastcall SetItem(Stdctrls::TListBox* List, int Index);
  278.     void __fastcall SetLayOut(void);
  279.     __property Classes::TStringList* AliasList = {read=FAliasList};
  280.     __property int CurPage = {read=FCurPage, write=FCurPage, nodefault};
  281.     __property bool SimpleQuery = {read=FSimpleQuery, write=FSimpleQuery, nodefault};
  282.     __property bool ProcessedMaster = {read=FProcessedMaster, write=FProcessedMaster, nodefault};
  283.     __property TExpertChoice Choice1 = {read=FChoice1, write=FChoice1};
  284.     __property TExpertChoice Choice2 = {read=FChoice2, write=FChoice2};
  285.     __property int ChosenItem = {read=FChosenItem, write=FChosenItem, nodefault};
  286.     __property Controls::TImageList* ImageList = {read=FImageList};
  287.     __property Classes::TStringList* OrderedDetailList = {read=FOrderedDetailList};
  288.     __property Classes::TStringList* OrderedMasterList = {read=FOrderedMasterList};
  289.     
  290. public:
  291.     __fastcall virtual TFormExpert(Classes::TComponent* AOwner);
  292.     bool __fastcall CreateForm(void);
  293. public:
  294.     /* TCustomForm.CreateNew */ __fastcall TFormExpert(Classes::TComponent* AOwner, int Dummy) : Forms::
  295.         TForm(AOwner, Dummy) { }
  296.     /* TCustomForm.Destroy */ __fastcall virtual ~TFormExpert(void) { }
  297.     
  298. public:
  299.     /* TWinControl.CreateParented */ __fastcall TFormExpert(HWND ParentWindow) : Forms::TForm(ParentWindow
  300.         ) { }
  301.     
  302. };
  303.  
  304. //-- var, const, procedure ---------------------------------------------------
  305.  
  306. }    /* namespace Frmexprt */
  307. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  308. using namespace Frmexprt;
  309. #endif
  310. //-- end unit ----------------------------------------------------------------
  311. #endif    // Frmexprt
  312.